﻿Public Class Persona
  Private m_Nome As String
  Private m_Età As Integer

  Public Sub New(ByVal pNome As String, _
          ByVal pEtà As Integer)
    m_Nome = pNome
    m_Età = pEtà
  End Sub

  Public ReadOnly Property Nome() As String
    Get
      Return m_Nome
    End Get
  End Property

  Public ReadOnly Property Età() As Integer
    Get
      Return m_Età
    End Get
  End Property
End Class
